home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _GUICtrlMonthCalGetDelta.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  628 b   |  26 lines
  1. #include <GUIConstants.au3>
  2. #include <date.au3>
  3. #include <GuiMonthCal.au3>
  4.  
  5. opt('MustDeclareVars', 1)
  6.  
  7. Dim $Date, $Btn_Exit, $Status, $msg
  8.  
  9. GUICreate( "Get Delta", 392, 254)
  10.  
  11. $Date = GUICtrlCreateMonthCal (_NowCalcDate(), 90, 10, 200, 160)
  12.  
  13. $Status = GUICtrlCreateLabel("", 0, 234, 392, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  14.  
  15. $Btn_Exit = GUICtrlCreateButton("Exit", 150, 180, 90, 30)
  16.  
  17. GUISetState()
  18. GUICtrlSetData($Status, "Month Delta: " & _GUICtrlMonthCalGetDelta ($Date))
  19. While 1
  20.    $msg = GUIGetMsg()
  21.    Select
  22.       Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
  23.          ExitLoop
  24.    EndSelect
  25. WEnd
  26.